home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / bipl.zip / PROGS.ZIP / FARB.ICN < prev    next >
Text File  |  1992-09-28  |  7KB  |  180 lines
  1. ############################################################################
  2. #
  3. #    File:     farb.icn
  4. #
  5. #    Subject:  Program to generate Farberisms
  6. #
  7. #    Author:   Ralph E. Griswold
  8. #
  9. #    Date:     June 10, 1988
  10. #
  11. ###########################################################################
  12. #  
  13. #     Dave Farber, co-author of the original SNOBOL programming
  14. #  language, is noted for his creative use of the English language.
  15. #  Hence the terms ``farberisms'' and ``to farberate''.  This pro-
  16. #  gram produces a randomly selected farberism.
  17. #  
  18. #  Notes: Not all of the farberisms contained in this program were
  19. #  uttered by the master himself; others have learned to emulate
  20. #  him.  A few of the farberisms may be objectionable to some per-
  21. #  sons.  ``I wouldn't marry her with a twenty-foot pole.''
  22. #  
  23. ############################################################################
  24. #
  25. #  Program note:
  26. #
  27. #     This program is organized into several procedures to avoid oveflowing
  28. #  the default table sizes in the Icon translator and linker.
  29. #
  30. ############################################################################
  31.  
  32. procedure main(arg)
  33.    local count
  34.  
  35.    &random := map(&clock,":","0")
  36.    count := integer(arg[1]) | 1
  37.  
  38.    every write(|??[farb1(),farb2(),farb3(),farb4()]) \ count
  39.  
  40. end
  41.  
  42. procedure farb1()
  43.    return [
  44.       "I enjoy his smiling continence.",
  45.       "Picasso wasn't born in a day.",
  46.       "I'll be there with spades on.",
  47.       "Beware a Trojan bearing a horse.",
  48.       "A hand in the bush is worth two anywhere else.",
  49.       "All the lemmings are going home to roost.",
  50.       "Anybody who marries her would stand out like a sore thumb.",
  51.       "Before they made him they broke the mold.",
  52.       "He's casting a red herring on the face of the water.",
  53.       "Clean up or fly right.",
  54.       "Come down off your charlie horse.",
  55.       "Don't burn your bridges until you come to them.",
  56.       "Don't count your chickens until the barn door is closed.",
  57.       "Don't do anything I wouldn't do standing up in a hammock.",
  58.       "Don't get your eye out of joint.",
  59.       "Don't just stand there like a sitting duck.",
  60.       "Don't look a mixed bag in the mouth.",
  61.       "Don't look at me in that tone of voice.",
  62.       "Don't make a molehill out of a can of beans.",
  63.       "Don't make a tempest out of a teapot."
  64.       ]
  65. end
  66.  
  67. procedure farb2()
  68.    return [
  69.       "Don't upset the apple pie.",
  70.       "Every cloud has a blue horizon.",
  71.       "She's faster than the naked eye.",
  72.       "Feather your den with somebody else's nest.",
  73.       "From here on up, it's down hill all the way.",
  74.       "Go fly your little red wagon somewhere else.",
  75.       "Half a worm is better than none.",
  76.       "He doesn't know which side his head is buttered on.",
  77.       "He has feet of molasses.",
  78.       "He hit the nose right on the head.",
  79.       "He knows which side his pocketbook is buttered on.",
  80.       "He smokes like a fish.",
  81.       "He was hoisted by a skyhook on his own petard!",
  82.       "He was putrified with fright.",
  83.       "He would forget his head if it weren't screwed up.",
  84.       "He's as happy as a pig at high tide.",
  85.       "He's been living off his laurels for years.",
  86.       "He's got a rat's nest by the tail.",
  87.       "He's got four sheets in the wind.",
  88.       "He's letting ground grow under his feet.",
  89.       "He's lying through his britches.",
  90.       "He's procrastinating like a bandit.",
  91.       "He's reached the crescent of his success.",
  92.       "He's so far above me I can't reach his bootstraps.",
  93.       "He's too smart for his own bootstraps.",
  94.       "His foot is in his mouth up to his ear.",
  95.       "History is just a repetition of the past.",
  96.       "I apologize on cringed knees.",
  97.       "I don't know which dagger to clothe it in.",
  98.       "I hear the handwriting on the wall.",
  99.       "I wouldn't marry her with a twenty-foot pole.",
  100.       "I'll procrastinate when I get around to it.",
  101.       "I'm going to throw myself into the teeth of the gamut.",
  102.       "I'm parked somewhere in the boondoggles."
  103.       ]
  104. end
  105.  
  106. procedure farb3()
  107.    return [
  108.       "I'm walking on cloud nine.",
  109.       "I've got to put my duff to the grindstone.",
  110.       "I've had it up to the hilt.",
  111.       "If Calvin Coolidge were alive today, he'd turn over in his grave.",
  112.       "If the onus fits, wear it.",
  113.       "Is he an Amazon!",
  114.       "It fills a well-needed gap.",
  115.       "It is better to have tried and failed than never to have failed at all.",
  116.       "It looks like it's going to go on ad infinitum for a while.",
  117.       "It sounds like roses to my ears.",
  118.       "It's a caterpillar in pig's clothing.",
  119.       "It's a fiat accompli.",
  120.       "It's a fool's paradise wrapped in sheep's clothing.",
  121.       "It's a monkey wrench in your ointment.",
  122.       "It's a new high in lows.",
  123.       "It's bouncing like a greased pig.",
  124.       "It's enough to make you want to rot your socks.",
  125.       "It's like talking to a needle in a haystack.",
  126.       "It's like trying to light a fire under a lead camel.",
  127.       "It's not his bag of tea.",
  128.       "It's so unbelieveable you wouldn't believe it.",
  129.       "Just because it's there, you don't have to mount it.",
  130.       "Keep your ear peeled!",
  131.       "Let's not drag any more dead herrings across the garden path.",
  132.       "Let's skin another can of worms.",
  133.       "Look at the camera and say `bird'.",
  134.       "Look before you turn the other cheek.",
  135.       "Men, women, and children first!",
  136.       "Necessity is the mother of strange bedfellows.",
  137.       "Never feed a hungry dog an empty loaf of bread.",
  138.       "No rocks grow on Charlie.",
  139.       "No sooner said, the better.",
  140.       "Nobody could fill his socks.",
  141.       "Nobody is going to give you the world in a saucer.",
  142.       "Nobody marches with the same drummer.",
  143.       "Not by the foggiest stretch of the imagination!",
  144.       "Not in a cocked hat, you don't!",
  145.       "People in glass houses shouldn't call the kettle black.",
  146.       "Put it on the back of the stove and let it simper."
  147.       ]
  148. end
  149.  
  150. procedure farb4()
  151.    return [
  152.       "Put the onus on the other foot.",
  153.       "Rome wasn't built on good intentions alone.",
  154.       "She has eyes like two holes in a burnt blanket.",
  155.       "She's a virgin who has never been defoliated.",
  156.       "She's trying to feather her own bush.",
  157.       "Somebody's flubbing his dub.",
  158.       "It's steel wool and a yard wide.",
  159.       "Straighten up or fly right.",
  160.       "Strange bedfellows flock together.",
  161.       "That's a bird of a different color.",
  162.       "That's a horse of a different feather.",
  163.       "That's a sight for deaf ears.",
  164.       "That's the way the old ball game bounces.",
  165.       "The die has been cast on the face of the waters.",
  166.       "The early bird will find his can of worms.",
  167.       "The foot that rocks the cradle is usually in the mouth.",
  168.       "The onus is on the other foot.",
  169.       "The whole thing is a hairy potpourri.",
  170.       "There are enough cooks in the pot already.",
  171.       "There's a dark cloud on every rainbow's horizon.",
  172.       "There's a flaw in the ointment.",
  173.       "There's going to be hell and high water to pay.",
  174.       "They don't stand a teabag's chance in hell.",
  175.       "They sure dipsied his doodle.",
  176.       "This ivory tower we're living in is a glass house.",
  177.       "Time and tide strike but once."
  178.       ]
  179. end
  180.